14 S=54272:V=53248:TM=500:SC=0:BL=0:FL=50:HS=0:P=200:Q=202
20 POKEV+21,.:GOSUB800
22 P$="":A$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214]      [214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]"
23 B$="     [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214]    "
24 C$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]        [214][214][214]"
25 D$="[214][214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]   "
26 FORX=50880TO51116:READA:POKEX,A:NEXT
28 FORX=49152TO49528:READA:POKEX,A:NEXT
30 FORX=12800TO13374:READA:POKEX,A:NEXT
32 P$=A$+B$+C$+D$
34 POKEV+28,128:POKEV+37,1:POKEV+38,8:POKEV+46,14:POKEV+39,2:POKEV+40,7
35 POKEV+41,14:POKEV+42,5:POKEV+43,8:POKE V+44,15:POKEV+45,1
36 FORX=2040TO2046:POKEX,202:NEXT:POKE2047,200:POKEV+16,84
37 POKEV+0,30:POKEV+1,20:POKEV+2,160:POKEV+3,20:POKEV+4,40:POKEV+5,20
38 POKEV+10,30:POKEV+11,250:POKEV+6,100:POKEV+7,250:POKEV+8,10:POKEV+9,250
39 POKEV+12,40:POKEV+13,250:POKEV+14,160:POKEV+15,130:POKEV+27,127
40 S=50433:POKES,3:POKES+1,2:POKES+2,0:POKES+3,3:POKES+4,252:POKES+5,1
41 POKES+6,0:POKES+7,255:POKES+8,0:POKES+9,254:POKES+10,2
42 POKES+11,254:POKES+12,254:POKES+13,255:POKES+14,0:POKES+15,0
44 W1=PEEK(V+30):W2=PEEK(V+31)
50 REM    PLAYING SCREEN
52 PRINT"[147]   T H E  M O O N L I G H T  Z O N E   "
54 PRINT"[158] TIME         'Q' TO QUIT[158]    BLOPS     "
56 PRINT"[158][214]FLOOR              HIGH SCORE        [146][158][214]"
58 PRINT"[214]";MID$(P$,INT(215*RND(9)+1),37);"[214]"
60 FORX=0TO3:FORY=0TO3:PRINT"[214]"TAB(38)"[214]":NEXTY
61 PRINT"[214]";MID$(P$,INT(215*RND(9)+1),37);"[214]":NEXTX
62 PRINT"[158]"TAB(6);TM;TAB(35);BL:PRINT""TAB(7);FL;TAB(31);HS
63 POKEV+21,255:FORT=0TO1000:NEXT
64 POKE50688,255:POKE50432,255:SYS51104:POKE2047,199
65 GOSUB100:IF(MM)THEN150
66 GETA$:IFA$="[209]"ORA$="Q"THEN61005
70 Q=Q+1:IFQ=208THENQ=202
74 GOSUB100:IF(MM)THEN150
76 FORX=2040TO2046:POKEX,Q:NEXT
77 GOSUB100:IF(MM)THEN150
79 W1=PEEK(V+30):IFW1>127THEN200
81 GOSUB100:IF(MM)THEN150
82 W2=PEEK(V+31):IFW2>127THEN200
83 GOSUB100:IF(MM)THEN150
85 TM=TM-1:PRINT"[158]"TAB(6)"     ":PRINT""TAB(6);TM:IFTM=0THEN300
86 GOSUB100:IF(MM)THEN150
90 GOTO65
100 MM=.:POKE2047,200:IF(PEEK(56320)AND15)=15THENPOKE50447,0:POKE50688,128:RETURN
101 JY=PEEK(56320)AND15:IFPEEK(198)<>0THENGETAG$:IFAG$="Q"THEN61000
102 IF(7EORJY)<>15THENPOKE50447,1:POKE50688,128:MS=-1
104 IF(11EORJY)<>15THENPOKE50447,255:POKE50688,128:MS=-1
106 IF(13EORJY)<>15THENMM=-1
108 POKE2047,201
110 RETURN
149 REM    GOING DOWN
150 POKE50447,0:POKE50688,128:POKE49522,3:U=0
152 SYS49152:U=U+1:IFU=5THEN160
153 W1=PEEK(V+30):IFW1AND128THEN200
154 W2=PEEK(V+31):IFW2AND128THEN200
156 GOTO152
160 PRINT""
161 PRINT"[214]";MID$(P$,INT(215*RND(9)+1),37);"[214]"
162 FL=FL-1:PRINT""TAB(7)"   ":PRINT""TAB(7);FL:IFFL=1THEN320
165 GOTO70
199 REM    COLLISIONS
200 POKE50432,0:FORX=2040TO2046:POKEX,208:NEXT
202 S=54272:FORX=0TO24:POKES+X,0:NEXT
204 POKES+24,15:POKES+5,80:POKES+6,243:POKES+3,4:POKES+4,65
206 FORX=20TO140STEP5:POKES+1,X:NEXT
207 POKES+4,64:FORX=0TO50:NEXT:POKES+4,64
208 FORX=0TO24:POKES+X,0:NEXT
210 POKES+24,143:POKES+5,16:POKES+19,16:POKES+6,252:POKES+20,249
212 POKES+4,21:POKES+18,17:POKES+1,68:POKES+15,42:FORX=0TO200:NEXT
214 POKES+24,20:POKES+18,16:FORX=0TO400:NEXT:FORX=0TO24:POKES+X,0:NEXT
218 FL=FL+5:BL=BL+1:IFBL=5THEN370
220 PRINT"[147]":POKEV+21,0:GOTO36
299 REM    TIME RUNS OUT
300 POKE50432,127:PRINT""TAB(10)"SORRY..TIME RAN OUT."
302 GOSUB500:SC=1000-(50*BL)-(FL*10):GOTO400
319 REM    FIRST FLOOR
320 POKE50432,127:PRINT"[159]":PRINTTAB(5)"CONGRATULATIONS! YOU ESCAPED"
322 GOSUB500:SC=1000+(2*TM)-(50*BL):GOTO400
369 REM    BLOPPED
370 PRINT"[158]5"
371 POKE50432,127:PRINT"[159]"
372 PRINTTAB(2)"SORRY..YOU WERE BLOPPED FIVE TIMES!"
374 GOSUB500:SC=750-(FL*10):IFSC<0THENSC=0:GOTO400
399 REM    GAME OVER
400 PRINT"[147]":POKEV+21,127:FORX=2040TO2046:POKEX,202:NEXT:Q=202
402 PRINT"[159]"TAB(11)"G A M E  O V E R":PRINT:PRINT:PRINT:PRINT
404 PRINTTAB(14)"SCORE"SC:PRINT:IFSC>HSTHENHS=SC
405 PRINTTAB(14)"HIGH SCORE"HS
406 PRINT""TAB(11)"PLAY AGAIN  Y OR N"
408 :
410 GETM$:IFM$=""THEN416
412 IFM$="Y"ORM$="[217]"THEN420
414 IFM$="N"ORM$="[206]"THEN60000
415 GOTO410
416 Q=Q+1:IFQ=208THENQ=202
417 FORX=2040TO2046:POKEX,Q:NEXT:GOTO410
420 SC=0:TM=500:FL=50:BL=0:PRINT"[147]":POKEV+21,0:POKE50432,0:GOTO36
499 REM    MUSIC
500 RESTORE
502 FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,0:POKES+24,15
504 READHF,LF,DR:IFHF=0THENRETURN
506 POKES+1,HF:POKES,LF:POKES+4,33:FORT=1TODR:NEXT
508 POKES+4,32:FORT=1TO50:NEXT
510 GOTO504
512 DATA 44,193,250,63,75,100,56,99,100,59,190,100,53,57,100
514 DATA 63,75,100,56,99,100,59,190,100,53,57,100
516 DATA 63,75,100,56,99,100,59,190,100,53,57,100
518 DATA 63,75,100,56,99,100,59,190,100,53,57,100
520 DATA 44,193,250,84,125,1000,0,0,0
799 REM    TITLE
800 PRINT"[147]"CHR$(142);:POKE53281,0:POKE53280,0
802 FORT=0TO100:X=INT(1000*RND(9)+1024):POKEX,46:NEXT
803 PRINT"           LOADSTAR PRESENTS:"
804 PRINT"[158]"TAB(17)"T H E":PRINT:PRINTTAB(11)"M O O N L I G H T":PRINT
806 PRINTTAB(10)"[175][175][175][175][175]"TAB(25)"[207][183][183][183][183]":PRINTTAB(14)"[206]"TAB(25)"[180]"
808 PRINTTAB(13)"[206]  [207][183][208]"TAB(25)"[207][183][183]"
810 PRINTTAB(12)"[206]   [180] [170][170][205]  [180] [180]"
812 PRINTTAB(11)"[206]    [180] [170][170] [205] [180] [204][175][175][175]"
814 PRINTTAB(10)"[206]     [204][175][186][170]  [205][180]":PRINTTAB(9)"[206]":PRINTTAB(9)"[183][183][183][183][183][183]"
816 PRINT""TAB(15)"[159]BY JC HILTY"
817 PRINTTAB(12)"(C) COPYRIGHT 1987"
818 GOSUB500
820 PRINT""TAB(7)"[158]PLEASE WAIT..READING DATA":RETURN
1000 REM    SPRITE MOTION
1002 DATA 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0
1003 DATA 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80,197
1004 DATA 45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234
1006 DATA 169,0,29,0,197,208,3,76,97,199,169,128,61
1007 DATA 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80
1008 DATA 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
1009 DATA 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
1010 DATA 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80
1011 DATA 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
1012 DATA 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
1013 DATA 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
1014 DATA 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0
1015 DATA 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198
1016 DATA 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199
1017 DATA 120,169,192,141,20,3,169,198,141,21,3,88,96
1018 REM    SCREEN MOVEMENT
1019 DATA 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
1020 DATA 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
1021 DATA 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204,116
1022 DATA 193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200,204
1023 DATA 116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104,145
1024 DATA 90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104,76
1025 DATA 111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116,193
1026 DATA 200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136,169
1027 DATA 32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
1028 DATA 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
1029 DATA 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
1030 DATA 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
1031 DATA 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
1032 DATA 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92,104
1033 DATA 145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
1034 DATA 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
1035 DATA 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
1036 DATA 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
1037 DATA 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
1038 DATA 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
1039 DATA 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
1040 DATA 5,6,6,6,6,6,6,6,7,7,7,7,7,3,1,37,3,23,2,2
1042 REM    SPRITE DATA
1044 DATA 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,170,64,0,168
1045 DATA 0,0,156,0,0,40,0,0,40,0,0,130,0,0,130,0,0,243,192,0,0,0,0,0,0
1046 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1047 DATA 60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,168,0,0,168,0,0,188
1048 DATA 0,0,104,0,0,40,0,0,40,0,0,40,0,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
1049 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
1050 DATA 255,0,1,255,128,3,255,192,7,255,224,14,60,112,30,60,120,62,60
1051 DATA 124,127,255,254,255,255,255,255,255,255,248,255,31,120,255,30
1052 DATA 56,0,28,28,0,56,14,0,112,7,255,224,3,255,192,1,255,128,0,255,0,0
1053 DATA 0,0,0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,15,241,192,31
1054 DATA 241,192,63,241,196,127,255,254,255,255,255,255,248,255,255,248,0
1055 DATA 127,252,0,63,254,0,31,255,0,15,255,128,7,255,224,3,255
1056 DATA 192,1,255,128,0,255,0,0,0,0,0,0,0,0,0
1057 DATA 255,0,1,255,128,3,255,192,7,255,224,15,255,192,31,255,192,63
1058 DATA 255,196,127,255,254,255,255,255,255,255,31,255,255,0,127,255
1059 DATA 128,63,255,192,31,255,224,15,255,240,7,255,224,3,255,192
1060 DATA 1,255,128,0,255,0,0
1061 DATA 0,0,0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,15,255,240
1062 DATA 31,255,248,63,255,252,127,255,254,255,255,255,255,255,255
1063 DATA 255,255,255,127,255,254,63,255,252,31,255,248,15,255,240,7
1064 DATA 255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,255,0,1
1065 DATA 255,128,3,255,192,7,255,224,3,255,240,3,255,248,35,255,252,127
1066 DATA 255,254,255,255,255,248,255,255,0,255,255,1,255,254,3,255,252
1067 DATA7,255,248,15,255,240,7,255,224,3,255,192,1,255,128,0,255,0,0,0,0
1068 DATA 0,0,0,0,0,255,0,1,255,128,3,255,192,7,255,224,7,199,240,7,199
1069 DATA 248,7,199,252,127,255,254,255,255,255,255,199,255,0,7,255,0,7
1070 DATA 254,0,15,252,0,31,248,15,255,240,7,255,224,3,255,192,1,255,128
1071 DATA 0,255,0,0,0,0,63,248,0,63,249,128,51,153,159,51,153,155,51,249
1072 DATA 155,63,241,155,63,193,155,48,241,155,48,249,159,48,153,128,48
1073 DATA 153,240,48,249,240,0,248,0,0,0,0,0,0,0,0,15,255,240,31,255
1074 DATA 224,63,255,192,0,0,0,0,0,0
60000 REM QUIT
60005 POKE53248+21,0
60006 SYS65418
60010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60020 OPEN15,8,15,"I0":CLOSE15
60030 IFER<>63THENEND
60040 LOAD"HELLO CONNECT",8
60050 END
60060 :
61000 REM  QUIT?
61005 POKEV+21,0:POKE50432,0
61010 PRINT"[147]  ARE YOU SURE YOU WANT TO QUIT (Y/N)?"
61020 POKE198,0:WAIT198,1:GETAG$
61030 IFAG$="Y"ORAG$="[217]"THEN60000
61040 IFAG$="N"ORAG$="[206]"THENPOKEV+21,255:GOTO36
61050 GOTO61020